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16-Sep-1984 01:54: VAX=11 FORTRAN V3.4-56 Pa 1 

828s p-1o8c 35:35:98 DISKSVMSMASTER: LUETP. SRCJUETFORTO3. FORT! 
FORTRAN TEST FOR THE VAX/VMS UETP LOAD TEST 


Version: *v04-000' 


PARRA ASASLAAALAAAAALALALALAAALALALALALE ALES ASAE SESSA REAR RARER EASE EE SESS SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


w & 
* 7 
* & 
* * 
e ® 
® ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
* ® 
® & 
® ® 
e ® 
* * 
® ® 
* * 
® ® 

* 

® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eRPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
: 
: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ce 
CRRR eee RAAT ATE A EEA 
Ls X.Y, 
: INTEGER I.J.K 
DO 200 J=1,20 
C J CONTROLS # PASSES 
DO 100 x=1,10000 
¥=(1/X) #e(4/X) 
100 CONTINUE 
TYPE 9999,J 
200 CONTINUE 
C 


9999 Sate NE IPER TRY END OF PASS ',13) 


: DEC 1977 RAB 1.0 
PROGRAM UETFORTOS 
REA 


3eb-1986 20: 


VETFORTOS ib-se 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 7 PIC CON REL LCL SHR _ EXE 
1 SPDATA 29 PIC CON REL LCL _ SHR NOEXE 
2 SLOCAL 4 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 150 
ENTRY POINTS 
Address Type Name 
0-00000000 UETFORTO3 
VARIABLES 
Address Type Name Address Type Name Address 
“$8885 Ast | $98880008 Act sages 
LABELS 
Address Label Address’ Label Address Label 
ef 100 al 200 1-00000000 9999" 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:UETFORTO3/0BJ=0BJ$:UETFORTO3 MSRC$:UETFORTO3 
/DEBUGs (NOS YRBOL § TRACEBACK) 
/SHOW= (NOPREPROCE 
/#77 


COMPILATION STATISTICS 


Run Time: .81 seconds 
Elapsed Time: 11 seconds 
Page Faults: 3 

Dynamic Memory: 155 pages 


LUDE ,MAP) 
/NOG_FLOATING 714 /OPTIAIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


33: 9 VAX=11_ FORTRAN 
DISKSVMSMASTER: 


3.4-56 P 
LUE TP? SRCIUETFORTOS. FORT! 


RD NOWRT LONG 
RD NOWRT LONG 


RD WRT LONG 
Type Name Address Type Name 
I*4 K 2-00000000 R*e4 X 


/NOMACHINE_CODE /CONTINUATIONS=19 


T CORPORATION 


mnaiy AH-BT13A-SE 
4) PROPRIETARY 


VAX/VMS V4.0 


